/* GUI CONVERTED from rwromta.p (converter v1.75) Sat Aug 12 23:17:57 2000 */
/* rwromta.p - ROUTING MAINTENANCE                                            */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                        */
/* All rights reserved worldwide.  This is an unpublished work.                        */
/* $Revision: 1.4.1.4 $                                                           */
/*                                                                            */
/* Logic to view and maintain the item related data for the routing operation */
/*                                                                            */
/* REVISION: 7.3      LAST MODIFIED: 10/31/94   BY: WUG *GN77*                */
/* REVISION: 7.3      LAST MODIFIED: 11/03/94   BY: WUG *GN98*                */
/* REVISION: 7.3      LAST MODIFIED: 07/02/96   BY: *G1Z5*  Russ Witt*        */
/* REVISION: 8.6      LAST MODIFIED: 05/20/98   BY: *K1Q4* Alfred Tan         */
/* REVISION: 9.1      LAST MODIFIED: 11/17/99   BY: *N04H* Vivek Gogte        */
/* REVISION: 9.1      LAST MODIFIED: 03/24/00   BY: *N08T* Annasaheb Rahane   */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.4.1.4 $   LAST MODIFIED: 05/17/00   BY: *N0DP* Anup Pereira       */
/* REVISION: 9.1      LAST MODIFIED: 08/12/00   BY: *N0KP* myb                         */
/*                                                                            */
/*V8:ConvertMode=Maintenance                                                  */

{mfdeclre.i}

/* EXTERNAL LABEL INCLUDE */
{gplabel.i}

{pxmaint.i}

define input parameter ro_recid as recid.

find ro_det where recid(ro_det) = ro_recid exclusive-lock.

FORM /*GUI*/ 
   
 RECT-FRAME       AT ROW 1 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1 COLUMN 3 NO-LABEL VIEW-AS TEXT SIZE-PIXELS 1 BY 1
 SKIP(.1)  /*GUI*/
ro_wipmtl_part      colon 25
   ro_mv_nxt_op        colon 65
   ro_po_nbr           colon 25
   ro_auto_lbr         colon 65
   ro_po_line          colon 25
 SKIP(.4)  /*GUI*/
with frame b width 80 attr-space side-labels overlay row 17 NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-b-title AS CHARACTER INITIAL "".
 RECT-FRAME-LABEL:SCREEN-VALUE in frame b = F-b-title.
 RECT-FRAME-LABEL:HIDDEN in frame b = yes.
 RECT-FRAME:HEIGHT-PIXELS in frame b =
  FRAME b:HEIGHT-PIXELS - RECT-FRAME:Y in frame b - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME b = FRAME b:WIDTH-CHARS - .5.  /*GUI*/


/* SET EXTERNAL LABELS */
setFrameLabels(frame b:handle).

ststatus = stline[1].
status input ststatus.

update
   ro_wipmtl_part
   ro_po_nbr
   ro_po_line
   ro_mv_nxt_op
   ro_auto_lbr
with frame b.

/* VALIDATE WIP PART OF THE ROUTING OPERATION */
{pxrun.i &PROC = 'validateWIPMaterial' &PROGRAM = 'rwroxr.p'
         &PARAM="(input ro_wipmtl_part)"
         &NOAPPERROR = True
         &CATCHERROR = True }

/* VALIDATE PO AND LINE OF THE ROUTING OPERATION */
{pxrun.i &PROC = 'validateRoutingPO' &PROGRAM = 'rwroxr.p'
         &PARAM = "(input ro_po_nbr,
                    input ro_po_line)"
         &NOAPPERROR = True
         &CATCHERROR = True}
